Public Class CPurchaseOrder
    Dim _dtPoDate As Date
    Dim _dtDeliveryDate As Date
    Dim _intVendorID As Integer
    Dim _strRemarks As String
    Dim _dblAmount As Double


    Public Property PoDate() As Date
        Get
            Return _dtPoDate
        End Get
        Set(ByVal value As Date)
            _dtPoDate = value
        End Set
    End Property
    Public Property DeliveryDate() As Date
        Get
            Return _dtDeliveryDate
        End Get
        Set(ByVal value)
            _dtDeliveryDate = value
        End Set
    End Property
    Public Property VendorId() As Integer
        Get
            Return _intVendorID
        End Get
        Set(ByVal value As Integer)
            _intVendorID = value
        End Set
    End Property
    Public Property Remarks() As String
        Get
            Return _strRemarks
        End Get
        Set(ByVal value As String)
            _strRemarks = value
        End Set
    End Property
    Public Property Amount() As Double
        Get
            Return _dblAmount
        End Get
        Set(ByVal value As Double)
            _dblAmount = value
        End Set
    End Property
   
End Class
